From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 20 Sep 2009 17:05:00 +0000 (+0000)
Subject: (find_handler_clause): Make stack-trace-on-error work in batch mode (bug#4228).
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10374
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=005c96be2ab0bb90d41da025db0cc3a65a551b55;p=emacs.git

(find_handler_clause): Make stack-trace-on-error work in batch mode (bug#4228).
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 1572d1e882f..fa0684d4257 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-20  Tom Tromey  <tromey@redhat.com>
+
+	* eval.c (find_handler_clause): Make stack-trace-on-error work in
+	batch mode (bug#4228).
+
 2009-09-18  Rob Christie  <robchristie@gmail.com> (tiny change)
 
 	* nsmenu.m (EmacsMenu-parseKeyEquiv:): Parse key equivalent more
diff --git a/src/eval.c b/src/eval.c
index 94b6214715a..8d446de09fc 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1945,14 +1945,13 @@ find_handler_clause (handlers, conditions, sig, data)
 	{
 	  max_lisp_eval_depth += 15;
 	  max_specpdl_size++;
-#ifdef PROTOTYPES
-	  internal_with_output_to_temp_buffer ("*Backtrace*",
-					       (Lisp_Object (*) (Lisp_Object)) Fbacktrace,
-					       Qnil);
-#else
-	  internal_with_output_to_temp_buffer ("*Backtrace*",
-					       Fbacktrace, Qnil);
-#endif
+	  if (noninteractive)
+	    Fbacktrace ();
+	  else
+	    internal_with_output_to_temp_buffer
+	      ("*Backtrace*",
+	       (Lisp_Object (*) (Lisp_Object)) Fbacktrace,
+	       Qnil);
 	  max_specpdl_size--;
 	  max_lisp_eval_depth -= 15;
 	}